Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  567 1463 (N43E25 L=267)   409     72        1 ( 528/1450- 609/1479) -14.0 E28-E20 N41-N45
      2 1476 1444 (N21W40 L=331)  1016    144        2 (1410/1412-1534/1479) -32.0 W34-W43 N18-N23
      3  440 1321 (N36E36 L=256)  1733    454        4 ( 385/1137- 508/1476) -69.4 E43-E29 N23-N47
      4  978 1401 (N30W06 L=297)   552     77        4 ( 946/1356-1013/1431)  31.0 W03-W08 N27-N32
      5 1611 1359 (N12W46 L=338)   279     65        0 (1586/1323-1626/1385)  76.0 W44-W47 N10-N14
      6 1393 1353 (N18W30 L=322)   222     30        1 (1369/1337-1414/1375) -18.4 W28-W31 N16-N18
      7 1654 1264 (N06W46 L=338)   270     58        1 (1634/1244-1678/1292)  33.7 W44-W47 N04-N07
      8  473 1214 (N28E33 L=258)   268     75        0 ( 459/1171- 492/1252) -80.5 E34-E31 N25-N31
      9 1621 1029 (S06W37 L=329)  1342    351        2 (1556/ 931-1712/1186)  69.0 W32-W44 S13-N01
     10  748 1047 (N14E16 L=276)   445     94        1 ( 698/1021- 793/1076)  -9.5 E19-E13 N12-N15
     11  317  808 (N06E52 L=239)   395     51        0 ( 301/ 778- 330/ 842)  63.4 E54-E50 N04-N08
     12 1185  645 (S19W02 L=293)  1805    487        5 (1017/ 438-1256/ 813)  40.8 E13-W09 S29-S09
     13  332  616 (S06E58 L=234)  1084    264        5 ( 262/ 579- 395/ 654)  -8.1 E65-E51 S08-S03
     14  658  419 (S23E39 L=253)   594    106        1 ( 632/ 385- 703/ 448)  23.2 E41-E34 S25-S20
     15 1075  323 (S40E15 L=277)   374     46        1 (1053/ 304-1103/ 344) -63.4 E16-E12 S41-S37
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y