Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  914 1665 (N29E27 L=237)   321     81        0 ( 867/1651- 952/1681)  31.0 E29-E24 N26-N30
      2  651 1517 (N12E37 L=228)   362     96        0 ( 604/1479- 695/1558)  63.4 E38-E35 N09-N15
      3 1008 1514 (N22E15 L=249)   375     58        3 ( 984/1476-1034/1544) -36.9 E17-E13 N19-N23
      4  553 1398 (N03E39 L=226)   279     72        0 ( 534/1365- 571/1432) -36.9 E40-E36 N01-N05
      5  469 1346 (S02E43 L=222)   294     75        1 ( 437/1327- 507/1359)   9.5 E45-E39 S03-N00
      6  906 1301 (N06E14 L=250)   337    125        0 ( 853/1248- 945/1335) -23.2 E17-E10 N04-N07
      7  279 1251 (S11E55 L=209)   529    161        1 ( 225/1208- 337/1286)  36.9 E59-E50 S14-S08
      8  774 1222 (S01E19 L=245)   512    187        0 ( 719/1189- 869/1286)   0.0 E24-E13 S02-N00
      9  258 1177 (S16E55 L=210)   680    199        1 ( 216/1102- 324/1240)  71.6 E58-E50 S20-S11
     10  374 1052 (S21E42 L=223)  1547    368        7 ( 332/ 944- 423/1186) -70.3 E47-E36 S27-S13
     11 1413  483 (S23W42 L=307)   490    195        1 (1340/ 451-1493/ 523)  14.0 W35-W47 S24-S20
     12  758  424 (S50W03 L=267)   254     41        0 ( 735/ 403- 783/ 450) -11.3 W00-W05 S50-S48
     13  870  412 (S46W12 L=276)   341     64        1 ( 842/ 388- 893/ 444) -26.6 W08-W14 S48-S44
  

    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