Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  894 1744 (N49E24 L=293)   490     77        0 ( 852/1722- 930/1769)  51.3 E27-E21 N46-N51
      2  242 1492 (N21E79 L=238)  1039     70        0 ( 223/1459- 264/1525) -45.0 E83-E75 N18-N23
      3 1596 1292 (N24W38 L=355)  2121    416        3 (1481/1144-1650/1446)  54.5 W28-W45 N13-N34
      4 1129 1365 (N24W03 L=320)   265     94        0 (1077/1346-1173/1383)   0.0 W00-W06 N22-N24
      5  348 1339 (N13E53 L=264)   315     39        1 ( 324/1319- 373/1353)   0.0 E55-E49 N11-N13
      6  437 1098 (S01E39 L=278)   814    136        1 ( 372/1078- 516/1119)   0.0 E44-E33 S02-N00
      7  462  931 (S11E36 L=281)   349    110        0 ( 433/ 906- 504/ 954)  -9.5 E38-E32 S12-S09
      8  260  880 (S16E55 L=262)   380     60        1 ( 230/ 861- 287/ 902)  23.2 E58-E51 S17-S14
      9  466  828 (S17E36 L=282)   353    119        2 ( 406/ 810- 518/ 853)   0.0 E40-E31 S17-S15
     10 1154  738 (S15W11 L=328)   572    224        0 (1124/ 662-1198/ 832) -70.0 W08-W15 S19-S08
     11  508  705 (S25E33 L=284)   309     67        1 ( 489/ 662- 524/ 735)  68.2 E34-E31 S27-S22
     12  396  618 (S32E44 L=273)   510    120        0 ( 341/ 602- 448/ 647)  -5.2 E49-E38 S33-S30
     13 1739  522 (S23W68 L= 25)  1869    319        2 (1639/ 437-1828/ 644)  51.3 W60-W73 S29-S14
     14 1188  400 (S38W21 L=338)   501     82        1 (1154/ 374-1225/ 426)  11.3 W18-W23 S40-S35
     15 1148  251 (S52W26 L=343)  1436    224        2 (1094/ 182-1191/ 359) -72.5 W21-W31 S60-S41
  

    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