Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  723 1640 (N35E34 L= 78)  1611    348        5 ( 682/1523- 766/1747) -57.1 E42-E29 N26-N43
      2 1244 1655 (N45W07 L=118)   563    100        1 (1212/1616-1265/1697)  90.0 W04-W08 N42-N49
      3 1605 1574 (N45W41 L=152)   958    221        2 (1553/1532-1632/1632)  39.3 W34-W45 N41-N51
      4  602 1480 (N22E36 L= 75)  1281    220        3 ( 502/1438- 684/1523)  26.6 E43-E31 N19-N26
      5  719 1387 (N18E25 L= 86)   257    149        0 ( 683/1343- 735/1443) -56.3 E28-E23 N15-N21
      6  321 1261 (N05E52 L= 59)   340     89        1 ( 292/1242- 354/1275)   9.5 E55-E49 N03-N06
      7 1332 1165 (N13W17 L=128)   779    253        3 (1248/1109-1386/1231)  45.0 W12-W20 N09-N17
      8  852 1203 (N09E13 L= 98)   192     39        0 ( 832/1179- 870/1224)  71.6 E13-E11 N07-N10
      9  340  939 (S14E45 L= 66)   836    304        4 ( 291/ 832- 375/1078)  72.6 E49-E43 S21-S05
     10 1766  893 (N02W54 L=165)   559    106        1 (1752/ 847-1781/ 952) -78.7 W52-W56 N00-N05
     11 1554  845 (S03W37 L=148)   246     87        0 (1528/ 800-1592/ 884)  63.4 W35-W38 S06-N00
     12  937  852 (S11E03 L=108)   213     83        0 ( 892/ 832- 982/ 881)  -9.5 E06-W00 S12-S10
     13  204  755 (S28E60 L= 52)   514    196        1 ( 168/ 735- 241/ 780)  18.4 E64-E55 S29-S26
     14 1352  725 (S13W25 L=136)   616    165        4 (1308/ 659-1385/ 768) -40.6 W21-W28 S17-S10
     15 1723  702 (S10W55 L=166)   367     57        0 (1695/ 670-1749/ 730)  63.4 W52-W56 S11-S07
  

    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